home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / CC_C / 0574.ZIP / GETS.ASM < prev    next >
Assembly Source File  |  1986-11-21  |  1KB  |  58 lines
  1. include compiler.inc
  2.  
  3.     ttl    GETS, 1.05, 10-07-86 jk
  4.  
  5.     dseg
  6.  
  7.     cseg
  8. ;    public    buf128
  9. buf128    db    128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  10.     db    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11.     db    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  12.     db    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  13.     db    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  14.     db    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  15.     db    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  16.     db    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  17.     db    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  18.     db    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  19.     db    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  20.     db    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  21.     db    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  22.     db    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  23.     db    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  24.     db    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  25.     db    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  26.  
  27.     procdef    gets, <<bfr, ptr>>
  28.  
  29.     pushreg
  30.     mov    dx,offset buf128
  31.     push    ds
  32.     mov    ax,cs
  33.     mov    ds,ax
  34.     mov    ax,0a00h
  35.     int    21h
  36.     ldptr    di,bfr
  37.     mov    ax,cs
  38.     mov    ds,ax
  39.     lea    si,buf128
  40.     inc    si
  41.     mov    cl,[si]
  42.     xor    ch,ch
  43.     inc    si
  44.     or    cl,cl
  45.     jz    none
  46.     rep    movsb
  47. none:    xor    al,al
  48.     stosb
  49.     pop    ds
  50.     mov    ax,0200h
  51.     mov    dl,0ah
  52.     int    21h
  53.     clc
  54.     retptrm    bfr
  55.     pend    gets
  56.  
  57.     finish
  58.